home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / workbench / tools / czesc_2 / man3.801 / install < prev    next >
Text File  |  1995-05-17  |  5KB  |  157 lines
  1. ;  *** Man installation scipt ***
  2.  
  3. (set #install-msg
  4. (cat "\n\nMan installation script.\n"
  5.      "This script installs the MAN commodity on your Amiga.\n\n"
  6.      "Read the documentation for\n"
  7.      "more information on the distribution\n"
  8.      "and commercial usage of Man.\n\n"
  9.      "Man © 1993-1995 Markus Hillenbrand\n"
  10.      "All rights reserved."
  11. ))
  12.  
  13. (set #bad-kick         "You must be using Kickstart 2.04 to install using this script!")
  14. (set #copying-reqtools "Copying reqtools.library to Libs:...")
  15.  
  16. (message #install-msg)
  17. (welcome "Welcome to the Man installation!")
  18.  
  19. (if (< (/ (getversion) 65536) 37)
  20. (
  21.     (abort #bad-kick)
  22. ))    
  23.  
  24. (set cputype (+(database "CPU")))
  25.  
  26. (if (>= cputype 68020)
  27.     (set MANFILE "Man_020")
  28.     (set MANFILE "Man")
  29. )
  30.  
  31. (if (exists "S:Man.cfg")
  32. (
  33.     (delete "S:Man.cfg")
  34. ))
  35.  
  36. (set reqtoolslib "libs20/reqtools.library")
  37. (set catalogdir  "catalogs/")
  38.  
  39. (copylib
  40.         (prompt "\n" #copying-reqtools)
  41.         (help @copylib-help)
  42.         (source reqtoolslib)
  43.         (dest "Libs:")
  44.         (confirm)
  45. ) 
  46.  
  47. (if (exists "SYS:WBStartUp/Man") (copylib   (prompt "\nInstalling Man-Commodity\n")
  48.                                   (help @copylib-help)
  49.                          (source MANFILE)
  50.                         (newname "Man")
  51.                              (dest "SYS:WBStartUp")
  52.                              (confirm))
  53.                  (copyfiles (prompt "\nInstalling Man-Commodity\n")
  54.                                             (help @copyfile-help)
  55.                                             (source MANFILE)
  56.                         (newname "Man")
  57.                                             (dest "SYS:WBStartUp")
  58.                                             (infos)
  59.                                             (noposition)
  60.                                             (confirm))
  61. )
  62.  
  63. (set #which-language "\nWhich languages should be installed?\n(English is default.)") 
  64. (set old_level @user-level)
  65. (set default_lang 1)
  66.  
  67. (if (exists "SYS:Locale")
  68. (
  69.     (if (exists "LOCALE:")
  70.         (
  71.         (user 1)
  72.         (set lang (askoptions (prompt #which-language)
  73.                               (help   #which-language-help)
  74.                               (choices    "Deutsch"
  75.                                           "Svenska")
  76.                               (default default_lang)
  77.                   )
  78.         )
  79.         (user old_level)
  80.         (set n 0)
  81.         (while (set language (select n "deutsch"
  82.                                        "svenska"
  83.                                        ""))
  84.            (
  85.            (if (IN lang n)
  86.                (
  87.                (if (<> 2 n)
  88.                    (
  89.                    (makedir (cat "LOCALE:Catalogs/" language))
  90.                    (copyfiles (source (cat catalogdir language))
  91.                               (dest (cat "LOCALE:Catalogs/" language))
  92.                               (all)
  93.                    )
  94.                ))
  95.               ))
  96.            (set n (+ n 1))
  97.         ))
  98.      ))
  99. ))
  100.  
  101. (set #which-manpages "\nWhich man pages should be installed?") 
  102. (set #which-manhelp  "Specify the useful man pages")
  103. (set old_level @user-level)
  104. (set manpagedir "Pages/")
  105.  
  106. (
  107.    ;get destination dir for ManPages
  108.    (set mydest
  109.         (askdir
  110.                (prompt "Select the directory where you want to put the man pages:")
  111.                (help   "The directory where you store the man pages should be on a "
  112.                        "hard drive. A directory will NOT be created!!\n\n"
  113.                )
  114.                (default "Work:")
  115.                (disk)
  116.         )
  117.    )
  118.  
  119.    (user 1)
  120.    (set lang (askoptions (prompt #which-manpages)
  121.                          (help   #which-manhelp)
  122.                          (choices  "Man"
  123.                                    "Dir"
  124.                                    "DT2IFF"
  125.                                    "List"
  126.                    "Size"
  127.                    "Wait"
  128.                                    "Which"
  129.                                    "Why")
  130.              )
  131.         )
  132.         (user old_level)
  133.         (set n 0)
  134.         (while (set manpage (select n "Man.man"
  135.                                       "Dir.man"
  136.                                       "DT2IFF.man"
  137.                                       "List.man"
  138.                                       "Size.man"
  139.                       "Wait.man"
  140.                                       "Which.man"
  141.                                       "Why.man"
  142.                                       ""))
  143.         (
  144.         (if (IN lang n)
  145.             (
  146.             (if (<> 200 n)
  147.                 (
  148.                 (copyfiles (source (cat manpagedir manpage))
  149.                            (dest mydest)
  150.                            (all)
  151.                            )
  152.                 ))
  153.             ))
  154.         (set n (+ n 1))
  155.     ))
  156. )
  157.